CDL Z80 MACRO III Assembler CI 20 12- 414X 

da/mo /SO h h ! mm '- s s 

ZSBPRM - ZSBC-3 PROM Mo n iter 
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.ident ZSBPRM 



ve r 5 1 n == 

r-evisiori== 

patch = 

lib 

lb 



1 1 oujbvt 
lastbvt 



; i-eccmbine proms 

; last ujork 06/22/S3 DSB 

5 p r o 9 1 amme r s r e -f 
7 pros r-e-f too 



5 User enters response to select assembly options 

n 
7 

HOST =\" 

Enter for DMS-3 or DMS-4 

1 for DMS~3/F -Tox'" 

2 for DMS-15 



Selection " 

DSC3 

FOX 

DMS15 



HOST 

HOST-1 

HOST-2 



TAPEopt =\" 

Enter for tape boot 
1 otherwise" 

. pabs 

. phex 



CDL Z80 MACRO III Assembler C12012- 414X Pase 2 

da/mo /SO hh: rrim: ss 

ZSBPRM - ZSBC~3 PROM Monitor 

1-1 PROM. ASM 



36 ? DSC-3, DSC:-4 PROM Monitor 

37 ; 

38 5 Features of the DSC/3: 

39 5 

40 ; Z-SO at 4MHs 

41 ; 64K Dynamic RAM 

42 ; 2K PROM 

43 ; 4 Ports - 3 RS-232 

44 ; 1 RS-422 (optionally RS-232) 

45 ? Real time clock 

46 ; Optional floppy disk controller 

47 ; 2 S-bit parallel ports 

48 ; 

49 ; The PROM Monitor occupies the 2K PROM on all ZSBC-3 

50 5 CPU boards and can execute the followins commands! 

51 ; 

52 ; Set <addr> 

53 ; set memory locations, starting at <addr> 

54 5 

55 ; Dump C <addrl> C<addr2>] ] 

56 7 dump memory from <addrl> to <addr2> 

■_'/ 1 

58 ; Fill <addrl> <addr2> <byte> 

59 ; fill memory with <byte> from <addrl> to •Caddr2> 

60 5 

61 5 Go <addr> 

62 ; Jump to <addr> 

63 ; 

64 5 In <port> 

65 5 input from Z-80 <port> 

66 ? 

67 5 Out <port> <byte> 

68 ; output <byte> to Z-SO <port> 

69 ; 

70 7 Test <addrl> <addr2> 

71 5 test memory from <addrl> to <addr2> 

72 ; 

73 7 Boot <device> C<combuf>Ii 

74 S read and execute program from floppy7 network, 

75 7 xebec harddisk, test floppy, or tape 

76 ; 

77 7 Emulate <port> <baudrate> (Fox only) 

78 7 Fox will emulate a CRT by sending keyboard 

79 7 input out the specified port7 and passing all 

80 7 port input along to the fox CRT controller. 

O J. 7 



CDL ZSO MACRO III Assembler- CI 20 12- 414X Pase 

da/mo/SO hh:mm:ss 

ZSBPRN - ZSBC-3 PROM Monitor 

1-2 PROM. ASM 

S4 ; Computing the Checksum for 2K PROMS 

85 ; 

86 5 DSCS, Fox and DMS15 PROMS do a checksum test be-fore 

87 ; booting. The checksum can be plugged in under- ZDTI 

88 ? -I^or testing^ but once settled uponj it should be 

89 5 lur-itten into this source code so that PROM- HEX can 

90 ? be used in the usual wav. 

91 ; If changes are made to this code the checksum will 

92 5 have to be recalculated. This can be done using ZDTI 

93 ; to load the PROM image into the TPA, then uji-iting a 

94 5 short program to add (l<t-bit quant it-v) all the b'-r'tes 

95 5 int the PROM. The two FP-'s of the serial number are 

96 5 then subtracted out so the final version will be 

97 ; independent of the serial number. The resulting 16- 

98 7 bit value7 plus the checksum^ should equal zero. Soi 

99 ; for example, if the sum of all b-i-tes other than the 

100 ; serial number is SSCA, the command "H SSCA" will 

101 5 show the correct checksum to be plugged into 7FE and 

102 5 7FF. 

104 ; BEFORE LOADING PROM. HEX IT IS NECESSARY TO INITIALIZE 

105 5 THE BLOCK OF MEMORY IT WILL OCCUPY TO CONTAIN ALL FFs ! 

106 ; THIS IS BECAUSE LOADING THE .HEX FILE WILL LEAVE SOME 

107 ? LOCATIONS IN THE RANDOM STATE THEY WERE ALREADY IN, 

108 ; AND THESE RANDOM VALUES WILL BE BLOWN INTO THE PROM-, 

109 ; LOUSING UP THE CHECKSUM. »•H••«••H-^t^J•*^i■•s■*•«•*•«••}i••K••)i■**•Ji•*«■«■*•)«•*•»••}i"«• 

110 ; 



CDL Z80 MACRO III Assembler CI 20 12- 414X Pase 4 

da/mo /80 hhsmmsss 

ZSBPRM - ZSBC-3 PROM Monitoi- 

1-3 -PROM. ASM 



ii; 



114 


115 


116 


117 


118 


119 


120 


121 


122 


123 


124 


125 


126 


127 


128 


129 


130 


131 


132 


133 


134 


135 


136 


137 


138 


139 


140 


141 


142 


143 


144 


145 


146 


147 


148 


149 


150 


151 


152 


153 



Update history! 

1.07 09/01/80 Initial release 

1.08 10/01 Changed autoboot Jumpers 

1.09 10/27 Changed autoboot Jumpers (AGAIN!) 

Boot from anv floppy drive 

Boot from hard disk 
1.09T 6/21/81 Boot from tape (option) 
4.09 version for fox 

4.15 27nov82 FOX boot from xebec hard disk 

4.17 06decS2 FOX xebec track/sector numbering 

chansed so logical numbers are 
same as regular hard disk 

4.18 Retries HD until ready 

Includes EJave Stein''s emulate code 
4.18a changed DVC to DRVCHR 

made a comment out of 

loiuadr! .byte 128 

since it seemed unnecessary and 

caused errors in assembly. 
4.18b Dave B. is back and fixed loiuadr 
4.1Sc Mo he didn'"'t5 but this time for sure 

4.19 04Jan83 Works: reads HD firmware from HD; 

tested ori cmi and miniscribe 

4.20 18Jan83 Initializes HD (if present) on s BN 

4.21 23marS3 Fixed emulate (e) bugs. 

Installed assbly-time ovrrun prot. 

4.22 23may83 Improved Memory test per SCR #0004 

(Betsy Tanner-'s test for floats) 
Change parallel port status detect 
(SCR #0018) to avoid bus collisions 
Add self-test on reset (SCR #0022): 
PROM checksum7 excluding serial no.; 
RAM check (4000-FFFF) for stuck bits 

4.23 27mayS3 Combined versions for various ZSBC3 

boards; i.e. choice of DSC-37 Fox or 
DMS15 is made at assby time. All 
have the new mem test^ and all do 
self-test since the new DSC-3 boards 
al 1 ow 2k proms. 



CDL Z80 MACRO III Assembler i::l2012- 414X Pase 5 

da/mci/80 hh: mrris ss 

ZSBPRM - ZSBC-3 PROM Monitor 

1-4 PROM. ASM 

06/08/83 Clean up some comments ^ „ pase the 
listing. DRB 

06/16/83 Revised mem test (better test for un- 
inserted address lines). This test is 
now also done if you boot H-rom the 
monitor br savins "B( something )" . 

06/21/83 Yet another mem test (Joe DuVivier-'s 

walking-bit version) since last one runs 
like molasses. Changed cpi-'s in emulate 
command parsing since the value in A at 
that point is (set this) the top two BCD 
digits of a four-digit quantity, i.e. 
06 for 600 baud-i 01 for 110 baud 7 etc. 
Fixed buss in memory test and 110 baud 
emulate. 



156 


5 -A 


157 




158 


; '-B 


159 




160 


3 


161 




162 


; -c 


163 




164 




165 




166 




167 




16S 




169 


; --D 


170 





CDL Z80 MACRO III Assembler C12012- 414X 

da/mo /SO h h s mm s s s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-5 PROM. ASM 



Pase 6 



9000 
9000 
9400 
93E0 
9380 
9390 
9393 
DOOO 
DSOO 



GOOD 
OOOA 
003F 
0007 



0000 
0002 



003S 
0030 
0032 
002A 
002S 
002B 
0029 
0022 
0020 
0023 
0021 
OOOA 
0008 
OOOB 
0009 
00 1 
0011 
000 1 
0003 
0003 
0002 
0008 



173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
1 90 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
20 1 
202 

204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 

'-to 1 



; Memor-Y equates 

n 

RAM 

BOOTloc == 

stack == 

Daddr == 

pesbuf == 

homeP == 

readP == 

tapboot == 

tapstk == 

5 

7 ASCII equates 

u 

If 

qmark == 

bell 

■J 

7 other e<=iuate5 

u 

7 

RxRDY 
TxRDY 



090001-1 

RAM 

RAM+400h 

RAM+3E0h 

RAM+380h 

RAM+390h 

RAM+393h 

ODOOOh 

tapbootH- 



ODh 
OAh 
3FI-1 
07 h 



u 



beginning of RAM 
beginning of bootstrap 
top of RAM 
Dump address 
FloppY result buffer 
home command 
read command 

write PROM here for tapeboot 
SOOh; so stack not overwritten 



Port definitions! 



DMA 
CTCO 

1*^ "T" t""- -"^ --. — 

SIOIAC == 

SIOIAD == 

SIOIBC == 

SIOIBD == 

SI02AC == 

SI 02 AD == 

SI02BC == 

SI02BD == 
PIOAC 
PIOAD 
PIOBC 
PIOBD 

FLOPSR == 

FLOPDR == 
HARDP 

SETMAP == 
STOPFLOP== 
PARADATA== 
PARASTAT== 



38 h 
30 h 
32 h 

2 Ah 
28h 
2Bh 
29 h 

22 h 

20 h 

23 h 

21 h 
OAh 
08h 
OBh 
09 h 
lOh 
llh 
01 h 

03 h 
03 h 
02H 
08H 



receiver readv status bit 
transmitter readv status bit 



DMA 


chip 






CTC 


channel 


(p. 


crt 0) 


CTC 


channel 2 


(p. 


crts 2,3) 


SIO- 


-1 channel 


A, 


c n t r o 1 


SIO- 


-1 channel 


A, 


data -port 


SIO- 


-1 channel 


B, 


c n t r o 1 


SIO- 


-1 channel 


B, 


data -port 


SIO- 


-2 channel 


A, 


c n t r o 1 


SIO- 


-2 channel 


A, 


data -port 


SIO- 


-2 channel 


B, 


c n t r 1 


SIO- 


-2 channel 


B, 


data -port 


PIO 


channel A: 


» c 


n t r o 1 


PIO 


channel A; 


- di 


ata 


PIO 


channel B; 


, c 


n t r 1 


PIO 


channel B: 


' A- 


ata 



o 



Floppy status register 
Floppv data register 
Hard disk parallel port 
Set memory map register 
Stop f 1 o ppy c o n t r oiler 
.J4 PARALLEL PORT 
PIO CHAN A DATA 



CDL Z80 MACRO III Assembler C12012- 414X 

da/mo /SO h h : rrim : s s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-6 PROM. ASM 



Page 7 



i24 



XEBEC 51410 controller equates 



0003 
0001 
0009 
OOOB 
OOOF 
0000 
0004 
0001 
0000 



0000 
0008 
0003 
OOOC- 
0001 
0002 
0040 
0000 
OOCl 
0041 
0100 
0006 
9400 
9401 
9402 
9403 
9404 
9405 
9406 



225 


? 


226 


CMDmode 


227 


lurDATAmode 


228 


rdDATAmode 


229 


rdERRmode 


230 


LASTmode 


231 


xBUSY 


232 


xREQxfer 


233 


DAT$CMDport 


234 


toggle 


235 


n 
7 


236 


? output to 


237 


n 
7 


238 


xDRVreadv 


239 


xREAD 


240 


xSENSE 


241 


xINITdrv 


242 


xRECAL 


243 


xERROR 


244 


xIDLE 


245 


xINITcont 


246 


xSELcont 


247 


xDESELcont 


248 


secSIZE 


249 


lenXEBcmd 


250 


xOPcode 


251 


HIGHadr 


252 


MIDadr 


253 


LOWadr 


254 


skeuj$blk 


255 


ctl$fld 


256 


xERRbu1= 


257 





00011b ? command mode 

00001b ; write mode 

01001b ; read data mode 

01011b ; read error mode 

01111b ; ret zero bvte 

5 busY true hish 

4 7 data xfer request bit 

1 5 mode is set bv tossle 


es between cmd and data modes 



; 

08 ; 

03 5 

OCh ; 

1 ; 

02 ? 
40 h ; 
; 
ocih s 

04 ih ; 

256 

6 

9400h 5 

xOPcode+1 

HIGHadr+1 

MIDadr+1 

LOWadr+1 

skeaj$bl k+1 

ctl^if 1 d+1 



test drive readv 
read command 
status sense 
initial i ze drive 
recalibrate head 
i 1 1 esal command 
idle command 
reset control 1 er 
select controller 
deselect controller 



cmd table moved to RAM 



CDL Z80 MACRO III Assembler 11:12012- 414X Pase 

da/mo/SO hhsmmsss 

ZSBPRM - ZSBC-3 PROM Monitor 

1-7 PROM. ASM 

260 ; 

261 ; Come here on master reset 
0000 262 -loc 00 h ; RST 

0000 31 9400 263 Ixi SP, stack; you aluiavs need a stack 

0003 C3 OODB 264 Jmp initial ; intialize the PIO and SIOl 

265 ; 

266 3 Use these two bvtes: to store the DMA vector 
0006 03AS 267 DMAvect: . word DMARdone; interrupt on DMA done 



CDL Z80 MACRO III Assembler C12012- 414X 

da/iTio/80 hhsmmsss 

ZSBPRM - ZSBC.-3 PROM Mcnitcr 

1-8 PROM. ASM 



Pase 9 



0007 
03E7 
03E7 
03E7 
03EA 
03ED 
03F0 
03F3 
03F6 
03F9 
03FC 
03FD 
03FE 

07FE 
07FE 



03 047A 
C3 0496 
04A6 
04B3 
00 A 1 
OOBl 
00D2 



C3 
C3 
C3 

C3 



i_.o 
04 
17 
FFFF 



B1C5 



270 
271 
272 

274 
27i=i 

276 
277 
27S 
279 
280 
281 
282 
283 
284 

,i;', O O 

287 
288 

290 
291 
292 
293 
294 
296 
297 

306 
307 
308 
309 
%n* J. X. 
313 
314 

326 
327 
330 



; Uti 1 itv routines 

n 

? Callable bv an RST instruction: 



,•'.£- 7 



RST 
RST 
RST 
RST 
RST 5 
RST 6 
RST 7 



4 _ 



Input a character ■from port 
Output a character to port 
Output a string to port 
Output <return>» <linefeed> to 
Output CspacelJ' to port 
Input a bvte from port 



inO: 

outO: 

o u 1 5 1 s 

c r 1 f : 

spaces 

setb-i't: 

restarts Restart the PROM monitor 



portO 



Callable through Jump vector at top of 
(these first 4 are for DMS-lS-'s onlv) 



cmdFOXhard! 
xSTATrcvs 
xERRrcvK 
JustREAD: 



Send a command string to 
Get a result string from 
Get- error bvtes from the 
Get bvtes from hard disk 



ROM 

har 
har 
har 



d d i s k 
d disk 
d disk 



commands Output a command string to the floppy contlr 
results Input a result string from the floppv contlr 
ioerrs Output an I/O error message on port 



Jump vector tables 



ife 



vectab: 



DMS158<DSC3» Cnumvec 



73 



serial s 



n 1 O C 

Jmp 

Jmp 

•Jmp 

Jmp 

Jmp 

Jmp 

Jmp 

. bvte 

. bvte 

. word 

. 1 oc 
. ife 



3FCh-(3-5!-numvec) 



cmdHARD 

resHARD 

sendHARD 

recHARD 

command 

resul t 

ioerr 

version 

revision 

OFFFFh ; 



hard disk write func 



serial number 



7FEh 



DSC3 ! <l-TAPEopt) 



fe5r43 

C.iDord 0Bir65h] 



CDL Z80 MACRO III Assembler C12012- 414X 

da/mo /SO h h ii mm s s s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-9 PROM. ASM 



Pase 10 



0008 




0008 




0008 




00 OS 


DB2A 


OOOA 


CB47 


OOOC 


28FA 


OOOE 


DB28 


0010 




0010 




0010 


E67F 


0012 


F5 


0013 


1S2D 



0015 
0015 
0017 



DB2S 
FF 



0018 




0018 




0018 


7E 


0019 


B7 


001 A 


CS 


00 IB 


D7 


00 IC 


23 


00 ID 


181 



OO/T 



337 
338 

340 
342 
343 
344 
345 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 

0"70 
O/ Ji 

373 
374 
375 
376 
377 
378 
379 
380 
•—»»—' J. 

•_• 1^.' JM 

333 
384 
385 



; Input a character from console port 
; Regs ins none 

A = input character 



Ress out! 
.Toe 



inOs 
waiti s 



• utO: 



m 
bit 
J rz 
in 
. 1 oc 

ani 

push 

Jmpr 



08 h 



SIOIAC 

RxRDY,A 

waiti 

SIOIAD 

lOh 

7Fh 
PSW 
o u t c 



; RST 1 



read status 



get char. 
RST 2 

strip parity bit 
save output char 
continue elsewhere 



; Flush an input character from port 

; (Jumped to from -'out') 

f 1 ushs 

„ i f e DSC3 , C i n S 1 1 AD ] 

rst restart/3 ; restart the monitor 



? Output a string to port 

; Regs ins HL = address of string (ended bv null) 

; Regs outs none 

; Destroyed s A, HL 

.loc 18h 
outstOs 

mov A7M 

or a A 

rz 

rst outO/8 

i nx H 

Jmpr outs to 



; RST 3 

; get next output char 

; string terminated by null 

; output this char 

5 point to next char 

; repeat until nul 1 found 



CDL Z80 MACRO III Assembler C120i: 
da/mo/80 hhsmmsss 
ZSBPRM ~ ZSBC-3 PROM Monitor 
1-10 PROM. ASM 



414X 



Pase 1 1 



0020 




0020 




0020 


3E0D 


0022 


D7 


0023 


3E0A 


0025 


18E9 



0028 

0028 3E20 

002 A 18E4 



002C 3E3F 
002E D7 
002F FF 



0030 
0030 
0030 
0031 
0034 
0035 
0036 



E5 

CD 005? 

7D 

El 

C9 



0038 
0038 
0038 C3 OlAE 



390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
413 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 



5 Output <return>o <liriefeed> to port 

; Regs in! none 

; Ress outs none 

; Destroyed: A 

. loc 20 h ; RST 4 
crlf: 

iTivi Ai cr 

rst outO/8 

mvi Aj 1 H- 

JrriPr outO 



return from outO 



Output <space> to port 

Regs ins none 

Ress out: none 

Destroyed: A 

.loc 28h ; RST 5 
space s 

mvi A 7 ■' ■■■ 

Jmpr outO ; return from outO 



; Handle an input error 

■ Regs ins none 

; Regs out: none 

errors mvi A^qmark 

rst outO/8 ; type qmark on input error 
rst restart/8 ; restart the monitor 



Input a byte from port 
Regs ins none 
Regs outs A = byte read 

B = 1 if number was typed » otherwise 
Destroyed: DE 

5 RST 6 



getbyts 



. 1 oc 

push 
cal 1 
mov 

POP 

ret 



30h 



H 



save HL (courtesy to caller) 



getadr ; let -'getadr' do the work 
AjL ; result in low byte of HL 
H ; restore HL 



7 Restart the main monitor loop 

.loc 38h ; RST 7 
restarts 

Jmp prompt " Jump here to restart monitor 
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ZSBPRM - ZSBC~3 PROM Monitor 

1-11 PROM. ASM 



Pase 12 



003B CB77 

003D 2SC9 

003F DB02 

0041 F5 



0042 




0042 




0042 


DB2A 


0044 


C.B57 


0046 


28FA 


0048 


C.B47 


004A 


20C9 


004C 


Fl 


004D 


D32S 


004F 


FE61 


0051 


FS 


0052 


FE7B 


0054 


FO 


0055 


D620 


0057 


C:9 



435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 

450 
451 
453 
454 
455 
456 
457 
458 
459 
476 
477 
478 
479 
480 
481 



Input a bvte from parallel port 
(Jumped to from -'inO'") 



mcK 



bit 
J rz 
in 
push 



Output a by 
(Jumped to 
Return luith 
upper case 



outc! 

ua i to ! 



m 
hit 
J rz 
bit 
J rn; 

POP 

out 

cpi 

rm 

cpi 

rp 

sui 

ret 



6iA ; check for receiver ready 

ujaiti ; wait until ready 

PARADATA; read the char 

PSW 5 save it 

; echo by falling into outc 

te to parallel port 
from •■■outO'j falle into from •'inc-') 
A= the byte we put out 7 xlated into 

(in case it is an input echo.) 



SIOIAC ; read status 

TxRDYtA ; check for xmtr ready 

luaitO 

RxRDY^A 5 check for rcvr ready 

flush ? allow interrupt by user 

PSW ; get output char 

SIOIAD ; put it out 

•■'a'' ; return if less than •'a-' 

''z-' + l 5 return if greater than ''z'' 

■■■a-"--'A-' ; convert lower to upper case 
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1-12 PROM. ASM 



Pase 13 



0058 
0058 
005B 
005C 
005D 
005E 
0060 
0062 
0064 
0065 
0067 
0069 
006B 
006D 
006F 
0071 
0073 
0075 
0077 
0078 
0079 
007A 
007B 
00 7C 
00 7D 
007F 
0080 
0082 
0083 



21 0000 

44 

54 

CF 

FE20 

28FB 

FEOD 

C8 

FE47 

30C3 

FE41 

3806 

D607 

FE3A 

38B9 

D630 

38B5 

29 

29 

29 

29 

5F 

19 

0601 

CF 

FE20 

C8 

18DD 



0085 

0085 7C 

0086 CD 008A 
0089 7D 



008A 



484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 

514 
515 
516 
517 
518 
519 
520 
521 
522 
523 

525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 



; Input an address -from port 

; Ress in: none 

; Ress outs HL = address read 

5 B = 1 if number was tvped^ otherwise 

5 Destroyed! A, DE 



; Notes 

H 
J 

getadrs 

getO! 
setls 



An address contains zero or more spaces^ 
followed bv one or more HEX disitsi and 
terminated bv a <space> or <return> 



nums 



1 xi 

mov 

mov 

rst 

cpi 

J rz 

cpi 

rz 

cpi 

J r n c 

cpi 

J re 

sui 

cpi 

J re 

sui 

J re 

dad 

dad 

dad 

dad 

mov 

dad 

mvi 

rst 

cpi 

rz 

•j mpr 



HL = 

B = 

D = 

skip leading spaces 



terminate if <return> 



Jump if digit > F 



.F 



H,0 
B,H 
D,H 
inO/8 

setO 
cr 

•■■ G •■■ 

error 

-A-' 

num ; Jump if disit < A 

'■A-"-( •'9-' + l ) 5 partially convert A. 

•••9-' + l 

error 3 Jump if 9 < digit < A 

'"0" 3 convert ASCII to HEX 

error 3 Jump if digit < 

H 5 shift HL left 4 bits 

H 

H 

H 

EtA ; DE = current HEX digit 

D 3 add current digit to addr 

B» 1 3 set ''number typed"' flag 

inO/8 

•■■ '■ 5 terminate if <space> 

3 continue collecting chars 



getl 



; Output an address to port 

3 Regs in! HL = address to be printed 

7 Regs outs none 

5 Destroyed! A 

prtadr ! 

mov AjH 

call prtbyt 

mov AmL 



5 Output a byte to port 

; Regs in! A = byte to be printed 

; Regs out! none 

3 Destroyed: A 

prtbyt: 
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008A 


F5 


538 


push 


008B 


OF 


539 


rrc 


008C. 


OF 


540 


rrc 


008D 


OF 


541 


rrc 


008E 


OF 


542 


rrc 


008F 


CD 0093 


543 


cal 1 


0092 


Fl 


544 


POP 


0093 


E60F 


545 prt 


nbl ! ani 


0095 


C630 


546 


adi 


0097 


FE3A 


547 


cpi 


0099 


DA 0010 


548 


J c 


009C 


C607 


549 


adi 


009E 


C3 0010 


550 


Jmp 



PSW 



print h i 9 h nibble of A 



prt nbl ; print low nibble of A 

PSW 

OFh ; mask lower nibble 

•■"O'' ; convert to ASCII 

•■■9-' + l 

outO ; Jump if 0..9 

■'A'-('"9'+l) ; convert A..F to ASCII 

outO ; use return from outO 
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Pass 15 



OOA 1 
00 A 1 
00A2 
00A4 
00A5 
OOAS 
OOAB 
OOAC 
OOAE 
OOAF 



7E 

FEFF 

C8 

CD OOBE 

DC 00D2 

7E 

D311 

23 

ISFO 



559 
560 
561 
562 
563 
564 
565 
566 
567 
568 



commands 



mov 

cpi 

r-z 

cal 1 

cc 

mov 

out 

inx 

•jmpr 



A,M 
endcom 

waitdr 

ioerr 

A,M 

FLOPDR 

H 

command 



get a command bvte 
check if end-of-strins 
return if al 1 bvtes sent 
wait for data register 
I/O error if wrons direction 
set the command bvte 
write to data register 
point to next command bvte 







•joy 


7 """^ 


~'~"™'"~ 






570 


; Colle. 


:t re 






571 


; Ress 


in: 






572 


; Ress 


out! 






573 


? Desti 


-oved 


OOBl 




574 


resul ts 




GOBI 


21 9380 


575 




Ixi 


00B4 


CD OOBE 


576 


readDR: 


can 


00B7 


DO 


577 




rnc 


00B8 


DBll 


578 




in 


OOBA 


77 


579 




mov 


OOBB 


23 


580 




inx 


OOBC 


18F6 


581 


•• ■mii-TTiiim iiriiiriiiii 


Jmpr 



suit string from the floppy controller 

none 

none 
: A, HL 



H» resbuf 
ujai tdr 

FLOPDR 
M,A 
H 
readDR 



point to result buffer 
wait from data register 
return if al 1 bvtes received 
set the result bvte 
store it in ■"f 1 opbuf •' 
point to next result bvte 



OOBE 

OOBE DBIO 

OOCO 07 

OOCt 30FB 

00C3 07 

00C4 C9 

00C5 0D0A492F4F 

00D2 21 00C5 

00D5 DF 

0OD6 El 

00D7 CD 0085 

OODA FF 



584 
585 
586 
587 
588 
589 
590 
591 
597 
598 
599 
600 
601 
602 



7 Wait until 
; Ress ins 
3 Ress out! 
waitdr! 

in 
r 1 c 
J r n c 
rlc 
ret 
. asc: 
Ixi 
rst 

POP 

cal 1 
rst 



floppv data register is readv 
none 
A = status register 7 rotated left bv 1 



FLOPSR 
waitdr 



read floppy status register 



errmsg: 
ioerrs 



bit 7 = 1 if readv 
; bit 6 = 1 if CPU receiving 
; if CPU sending 

CcrDCl f 3'"I/0 error '" 
H7 errmsg 

outstO/8 7 output a message 
H 7 set the caller''s address 
prtadr ; print the caller-'s address 
restart/S 5 restart the monitor 



OODB 




OODB 


3ECF 


OODD 


D30A 


OODF 


3EFS 


OOEl 


D30A 


00E3 


3E03 


00E5 


D30A 
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605 ; 

606 ; Initialisation code - executed on master reset 

607 5 Initialize the PIO chip 

608 initials 

609 mvi A^OCFh 

610 out PIOAC 7 reset PIO channel A 

611 mvi AiOFSh ? top 5 lines == input 

612 out PIOAC. ; bottom 3 lines = output 

613 mvi A»3 

614 out PIOAC ; disable interrupts from PIO 

615 ; (We have no reason to want to 

616 5 t)« interrupted bv the PIO. 

617 ; Remember we are in the default 
61S ; int mode so anv ints make us 

619 ; restart the monitor. We don-'t 

620 ' need to do this on transitions 

621 ? of the PIO status lines.) 
00E7 3ECF 622 mvi A»0CFh 

00E9 D30B 623 out PIOBC ? reset PIO channel B 

OOEB 3EC0 624 mvi A,OCOh ; top 2 lines = input 

OOED D30B 625 out PIOBC ? bottom 6 1 ines = output 

OOEF 3E03 626 mvi A, 3 

OOFl D30B 627 out PIOBC ? disable interrupts 

00F3 3E00 628 mvi A,0 

OOFS D309 629 out PIOBD 5 unload the floppy head 

00F7 3EC3 630 mvi A,0C3h 

00F9 D33S 631 out DMA 5 reset the DMA chip 

632 ? 

633 ; Initialize port to be a standard CRT at 9600 baud 
OOFB 3E45 634 mvi A7 45h 5 set counter mode 
OOFD D330 635 out CTCO 5 next bvte is time constant 
OOFF 3E0D 636 mvi A, 13 ? 13 = 2Mhz/(16-»baudrate) 
0101 D330 637 out CTCO ? port is 9600 baud 
0103 21 0183 638 Ixi H,rs232 5 port is RS~232 
0106 01 092 A 639 Ixi B, rs232$<S+SI01AC 
0109 EDB3 640 outir 



641 5 

642 ; Prepare to enter monitor if front-panel switch is 

01 OB DB08 643 in PIOAD 

OlOD C.B7F 644 bit 7->(^ '■> check front-panel switch 

OlOF C2 014F 645 Jnz ramok 5 don't do self-test if set. 



o n 
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0112 
0115 
Oils 
0119 
Oil A 
01 IB 

one 

01 ID 
01 IE 
1 20 
0121 
0122 
0123 
0124 
0125 

0127 
0128 
0129 
012C 
01 2D 
012F 
0131 
0132 
0135 
0136 
013S 
013A 
013E 
013F 
0140 
0141 

0143 
0145 
0145 
0147 



0000 
07FE 



21 
01 
AF 
57 
5F 
7B 
86 
5F 
300 1 

14 
•'?':; 

OB 
78 
Bl 
20F4 

EB 

AF 

3A 03FE 

4F 

0600 

ED42 

AF 

3A 03FF 

4F 

0600 

ED42 

ED4B 

09 

7D 

B4 

2806 

3E07 

D328 
18FC 



07FE 



648 
649 
650 
651 

653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
691 



Self-Test. Since we anen-'t usins the Monitor it-'s ok 
to trash memor-Y inthe course of testing it. First we 



do a ROM checksum calculation^ then test the RAM 
stuck bits and for address line 15 being shorted 
one of the others. 



start from the bottom 
don'"t add this in too 



i- r 
to 



add! 



nci 



Ixi 


H,0 


Ixi 


B> cksum 


xra 


A 


mov 


D,A 


mov 


E,A 


mov 


A,E 


add 


M 


mov 


E,A 


J r n c 


. ,. n c 


inr 


D 


i nx 


H 


dcx 


B 


mov 


A,B 


ora 


C 


Jrnz 


. .add 


xchg 




xra 


A 


Ida 


serial 


mov 


C,A 


mvi 


B,0 


dsbc 


B 


xra 


A 


Ida 


ser ial+1 


mov 


CA 


mvi 


B,0 


dsbc 


B' 


Ibcd 


cksum 


dad 


B 


mov 


A,L 


ora 


H 


Jrs 


ckram 



mvi 



A,be1 1 



-ben: 

ife DSCS, Cout SI01AD3 
Jmpr . . bel 1 



; zero partial result regs 

;add to previous partial result 
;the bvte pointed to bv HL. 
5 do 16-bit add this waY so lue 
;don-"'t need a stack 

7 point to next bYte in PROM 



? add more to partial sum 

; partial sum in HL 

; clear carrr for sure 

5 remove serial from ca 1 c u 1 at i o n 

; gotta subtract out serial # 

; subtract one bYte of serial 



subtract 2nd bYte of serial # 
now HL plus checksum 
should add up to ! 



if bad 7 camp on conout port 



possible? no status check. 
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;- 414X 



Rase l! 



0149 
0149 21 
014C. C3 



014F 
014F 
0152 
1 55 
0153 
015A 
015D 
015F 
1 62 
0165 
0168 
016A 

016D 
01 6D 
016F 
0171 

0174 
0176 
01 73 
017B 
017D 

0130 
0133 
0134 
0136 
0133 
018A 
0009 



014F 
0400 



21 0000 
U 8000 
01 0800 
EDBO 
C3 315D 
DB02 
21 8000 
1 1 0000 
01 0300 
EDBO 
C3 016D 



DB03 
CB7F 
C2 OlAA 

DB2A 
CB5F 
C2 037E 
CB6F 
C2 0460 

L-o 0!i±:.EL- 

18 

144C 

03C.1 

05EA 

1100 



694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
70S 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 

723 
724 
725 

/ ^O 

727 

700 

733 
734 
735 
736 
737 

7'T' 'Z' 



7 Now check out the RAM (up where the code has room) 

7 

ckram! 

Ixi H»ramok ; return addr 
Jmp ckram2 



Since the RAM (above 4000h) has passed the test we 
assume-, naive! Y 7 that it-''s ok to map out the PROM« 



ramoki 



movbak 



c n t i n ! 



Ixi 

Ixi 

Ixi 

1 dir 

Jmp 

in 

Ixi 

] xi 

1 xi 

1 d i r 

■imp 



in 
bit 
J nz 



in 
bit 
J nz 
bit 
J nz 



H,0 

D,8000h 

B,S00h 



move to r-am^ re'l rom 



movbak+SOOOh 



release rom 



H,S000h 

D,0 

BjSOOh 

c o n t i n 



PIOAD 
7, A 



Place to continue 

if front panel int switch is 

on^ 3o to the Moniter 



Monitor ; ELSE, check for auto-boot 



S 101 AC 5 
3, A ; 
Network ? 
5, A 3 
Harddisk; 



BCD STS 



1 







1 



Network boot 
Floppy boot 
Harddisk boot 



. if n TAPEopt7CJmp Floppy] 

rs232: .byte 13h 5 channel reset 

.byte 14h701001100b ; 2 stops bits, no parity 

.byte 3 ,1 1000001 h 5 receiver enable 

.byte 5 , 11101010b ? transmitter enable 

. byte 1 1 h 7 00000000b 5 no interrupts 



rs232S> == 






length of SIO command strins 
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018C 
018E 
0196 
01A4 
01A6 
OlAA 
OlAA 
CHAD 
OlAE 
OlAE 
OlBl 
01B2 
01B4 
01B5 
01B6 
01B8 
OIBA 
OIBC 
OIBF 
OlCl 
01C4 
1 C6 
01C9 
OICB 
OICE 
01 DO 



ODOA 

444D532033 

2050524F4D 

342E 

32334400 

21 018C 
DF 

31 9400 

E7 

3E3A 

D7 

CF 

FE53 

282A 

FE44 

CA 0202 

FE47 

CA 024E ■ 

FE4& 

FE49 
CA 0267 
FE4F 
CA 0270 



01D3 
01D5 
OlDS 
01 DA 
OIDD 
01 DF 
OlEl 



FE54 
CA 0278 
FE42 
CA 02C4 
FEOD 

C3 002C 



741 
742 
743 
744 
745 
746 
747 
748 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
/ oo 
784 
785 
786 
787 
788 
789 



; Main monitor loop 

5 Wait for a user request? then Jump to the 
; appropriate routine to process it 

n 
■» 

PROMmsg: .ascii Ccr3CH=] 

.iH=e DSC3, C. ascii "DMS 3/4 "3 

.ascii " PROM Monitor " 

. bvte version+^'O"' ? "■ . •' 

. bvte revision/10+""0'" i revisionS10+-'0" , patch , 



Monitors 



prompt! 



Ixi 
rst 

Ixi 

rst 

mvi 

rst 

rst 

cpi 

J rz 

cpi 

s 

cpi 

J z 

cpi 

J z 

cpi 

•J z 

cpi 
J z 



H 7 PROMmsg 

outstO/S 5 print a boot-up message 

SPj stack 5 start with a fresh stack 
on a fresh 1 ine 
output the command prompt 

input a command 

Set memory 

Dump memory 

Go to a program 

Fill memory 

Input from a port 

Output to a port 



ife (DSC3 ! (1-TAPEopt ) ) , C 



CPI 

jz 

: 

cpi 

Jz 

cpi 

■ j z 

cpi 

j rz 

Jmp 



crlf/8 


A,'i:'- 


outO/8 


inO/8 


-s- 


Set 


-D- 


Dump 


-G" 


Go 


••'F-- 


Fil 1 


••■ I ■' 


In 


'O-' 


Out 


-TAPEo 


-•M-- 


Map 


'■T" 


Test 


'B-- 


Boot 


cr 


Dumper 


e r r o r 



; not enough room for 

7 DSC-4 map register set 

5 Test memory 

5 B o t 

7 <.cry ~ dump memory 
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414X 



Pase 20 



01E4 
01E4 
01E7 
01E8 
OlEB 
01 EC 
01 ED 
OlFO 
OlFl 
01F2 
01F4 
01F6 
01F7 
01F8 



OlFA 

01 FA 
OlFD 
0200 
0202 
0202 
0205 
0207 
0209 
020C 
020E 
0211 
0213 
0215 
0218 
021 A 

02 ID 
02 IE 



CD 0058 

E7 

CD 0085 

EF 

7E 

CD 008A 

EF 

F7 

CB40 

2801 

77 

18ED 



21 9000 

22 93E0 
1818 

CD 0058 

CB40 

2005 

2A 93E0 

180C 

22 93E0 

FEOD 

2805 

CD 0058 

1804 

11 0080 

19 

EB 



792 
793 
794 
795 
796 
797 
798 
799 
800 
SOI 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
i_i J, J 
816 
817 
S18 
819 
820 
821 



Set memorY 
S <adcIr-> 



Set! 
Setl! 



Set2 



cal 1 

rst 

cal 1 

rst 

rriov 

cal 1 

rst 

rst 

bit 

J rz 

mov 

inx 

Jrripr 



Dump memorv 
add r II 



; D C 
Dumpers 



Eiump! 



Ixi 

shld 

Jmpr 



cal 1 
bit 
J rnz 

822 Ihld 

823 Jmpr 

824 Daddrls shld 

825 cpi 

826 Jrz 
S27 cal 1 

828 Jmpr 

829 defaults Ixi 

830 dad 

831 Daddr25 xchs 



getadr 

crH=/8 

prtadr 

space/S 

A,M 

prtbvt 

5 pace /S 

setbvt/S 

0,B 

Set2 

M,A 

H 

Setl 



C<addr23 3 

H,RAM ; 
Daddr 
de-Faul t 

getadr " 
0,B 

Daddr 1 ; 
Daddr 5 
defaul t 
Daddr 5 
cr ; 

de-fault 5 
getadr ? 
Daddr2 



address is in HL 
print HL 



set old bvte 
print it 



from memory 



get new bvte from CRT 
test if number entered 
Jump if no number entered 
replace bvte in memory 
point to next byte 



D 



default starting address 



set starting address 

Jump if number entered 
resume from previous dump 

store starting address 
see if •••:lreturn> was typed 
Jump if no end addr entered 
get ending address 

default dump range 

DE = ending address 
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34 



02 11- 


2A 93E0 


0222 


E7 


0223 


CD 0085 


0226 


EF 


0227 


7E 


0228 


CD 008A 


022B 


23 


022C 


7D 


022D 


E60F 


022F 


20F5 


0231 


EF 


0232 


2A 93E0 


0235 


7E 


0236 


E67F 


0238 


FE20 


023A 


3002 


023C 


3E2E 


023E 


D7 


023F 


23 


0240 


7D 


0241 


E60F 


0243 


20F0 


0245 


22 93E0 


0248 


B7 


0249 


ED52 


024B 


38D2 


024D 


FF 



024E 

024E CD 0058 

0251 E9 



835 


DumpOs 


Ihld 


Daddr ; 


336 






rst 


crlf/8 ; 


837 






cal 1 


prtadr 


838 


m 
•> 








839 


Di 


umpi: 


rst 


space/S ; 


840 






mov 


A,M 3 


841 






call 


prtbvt 3 


842 






inx 


H 5 


843 






mov 


A7L 5 


844 






ani 


OFh 


845 






•j r n 2 


Dumpl 3 


846 


3 








847 






rst 


space/S 3 


848 






Ihld 


Daddr 


849 


Di 


Limp2: 


mov 


A,M 5 


850 






ani 


7Fh ; 


851 






cpi 


201-1 3 


852 






J rnc 


.+4 5 


853 






mvi 


A, •■•.••• 3 


854 






rst 


outO/S 5 


855 






inx 


H 5 


856 






mov 


A,L 3 


857 






ani 


OFh 


858 






Jrnz 


Dump2 5 


859 


7 








860 






shld 


Daddr 3 


861 






ora 


A 3 


862 






dsbc 


D 5 


S63 






J re 


DumpO 3 


864 






rst 


restart/S 


865 


7 " 










— 




866 


7 


Go to 


a memor- 


Y location 


867 


7 








868 


n 
7 


G <addr> 




869 


Go: 






870 






call 


setadr 3 


871 






pchl 


N 

7 



Top of dump 1 oop - 
print dump address 



Dump 16 bvtes in hex format 

set a bvte 

print it in hexadecimal 

point to next bvte 

check if multiple of 16 

Jump if not 

Dump 16 bvtes in ASCII format 

set a bvte 

mask out parity bit 

pr in tab 1 e? 

skip next instr if printable 

print •Cdot> if unprintable 

print it in ASCII 

point to next bvte 

check if multiple of 16 

Jump if not 

Check if dump is finished 
clear carrv flas 
clear carrv flag if done 
Jump if not done 



address is in HL 
Jump to address in HL 
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0252 
0252 

0256 

025 A 
025B 
025C 
025E 
025F 
0260 
0261 
0262 
0263 
0264 
0266 



0267 
0267 
0268 
0269 
026A 
026C 
026F 



CD 

E5 

CD OC 

F7 

Dl 

B7 

ED52 

4D 

44 

6B 

62 

77 

13 

EDBO 

FF 



005!: 



F7 

4F 

E7 

ED78 

CD 008A 

FF 



0270 




0270 


F7 


0271 


F5 


0272 


F7 


0273 


CI 


0274 


48 


0275 


ED79 


0277 


FF 



874 
875 
876 
877 
878 
879 
880 
881 



884 
886 

oo / 
888 
889 
890 
891 
892 

894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 



; Fill memcirv 



5 F <:addrl> <addr2> <bYte> 
Fil 1 : 



cal 1 
push 
cal 1 

rst 

POP 

ora 

dsbc 

mov 

mov 

mov 

mov 

mov 

inx 

Idir 

rst 



getadr 5 starting address 

H 

getadr ; e rid ins address 

getbvt/S ; fill chai- 



D 

A 

D 

C,L 

B,H 

L,E 

H,D 

M,A 

D 



; besin addr in DE 

; clear carr-Y 

; HL = HL - DE 

5 BC = bvte count 

; HL = source address 

; put fill char in memor-v 

; DE = destination address 



restar-t/S 



Input from a port 



; I <port> 
I n : 



i-st 

mov 

rst 

inp 

cal 1 

rst 



getbvt/8 
C7A ; 
crlf/8 
A ; 
prtbvt ; 
restart/8 



Output to a port 



<port> <bYte> 



Out! 



rst 


setbYt/S 


push 


PSW ; 


rst 


getbYt/8 


POP 


B ; 


mov 


C,B 3 


outp 


A ; 


rst 


restart/8 



C = port number 

input bYte to A 
print the bvte 



save port number 
get output bYte 
restore port number 
C = port number 
output bYte from A 



CDL ZSO MACRO III Assembler C12012- 414X Page 

d a / m •:• / SO h h s m m s 5 s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-22 PROM. ASM 

919 5 

920 ; set rriemorv map register 

921 3 

922 7 M <reg> <bYte> 

923 3 

924 ; Note: <reg> = 0,1,...,F 

925 ; <bYte>s bit 7 = local mem 

926 ; bit 7 = 1 external mem 

927 ; bits 6 to = page number 

928 ; (bits 6 to 4 are louj-true) 

929 ; 

930 3 For exemple, the command "M 2 F3" mill map logical 

931 3 addresses 2000-2FFF to physical addresses 3000-3FFF 

933 3 To enable the map? do command "0 8". 

934 S.ife (DSC3 ! ( 1-TAPEopt ) ) , C 

935 3 Maps 

936 5 

937 ; 

938 5 

939 5 

940 3 

941 5 

942 5 

943 5 

944 5 

945 5 

946 5 

947 5 

948 3 

949 3 3 5 end "DSC-3 without Tape" 



rst 


getbYt/8 


push 


PSW 


rst 


getbvt/S 


mov 


H,A 


POP 


PSW 


rlc 




rlc 




rlc 




rlc 




mov 


B,A 


mvi 


CSETMAP 


outp 


H 


rst 


restart/S 


3 


5 end "DSC 



CDL Z80 MACRO III Assembler Ci2012- 414X 

da/rrio/80 hhsmrrisss 

ZSBPRM - ZSBC-3 PROM Men it or 

1-23 PROM. ASM 



Pase 1^:4 



OOFF 
027S 
0278 
027B 
027C 
027F 
0280 



0283 

0284 

0285 

0287 

028A 

028B 

02Si: 

028E 

{-)28F 

0290 

0292 

0293 

0295 

029S 

0299 

029A 

029D 

029E 

02A0 

02A1 

02A2 

02 A 4 

02A5 

02A7 



02A8 
02A9 
02AC 
02AD 
02AE 
02B1 
02B2 
02B3 
02B6 
02B7 
02B8 
02BB 
02BB 



CD 005S 

E5 

CD 005S 

Dl 

06FF 

E7 



0E7B 
CD 02BB 
77 
B7 



C ED5: 
19 



20F5 

El 

0E7B 

CD 02BB 

7E 

B9 

C4 02AC 

B7 

ED52 

19 

2B 

20F1 

05 
o pr o p 

07 

El 

C3 0283 

F5 

E7 

CD 0085 

EF 

Fl 

CD 008A 

EF 

7E 

C3 00 8 A 

79 



952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 

973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
'■?l-!5 
986 
987 
938 
989 
990 
991 
992 
■993 
994 
995 
996 
997 
998 
999 

1000 
1001 
1002 

1 003 

1 004 
1005 



Test meiTiorv 

T <addrl> <addr2> 

Repetitively write an incr-easins data patterni. 

and read it back -for verification. 

For each error detected 7 the address-, bvte written? 

and bvte read are displayed. 



pattern = 

Test: 

cal 1 
push 
call 

POP 

mvi 
rst 

retry! push 
push 
mvi 

fi 1 1 mem: cal 1 
mov 
ora 
dsbc 
dad 
dcx 
J rnz 

POP 

mvi 
testmems cal 1 
mov 
cmp 
ens 
ora 
dsbc 
dad 
dcx 
Jrns 
dcr 
mvi 
rst 

POP 

Jmp 
memerrs push 
rst 
cal 1 
rst 

POP 

cal 1 
rst 
mov 
•Jmp 
tstpatn: 

mov 



OFFh ? 

getadr 5 

H 

isetadr 5 

D ; 

Bi pattern 

crl f/8 

H ; 

H 

C,7Bh ; 

tstpatn 

M,A ? 

A ; 

D ; 

D ; 

H ? 

fill mem 

H ; 

C,7Bh ; 

tstpatn 

A,M 

C 

memerr ; 

A 

D 

D 

H 

testmem 



A,-. ' 

outO/8 

H 

retry 

PSW 

crl f /S 

prtadr 

space/8 

PSW 

prtbyt 

s pace/8 

A,M 

prtbyt 

A,C 



initial pattern offset 

read starting address 

read ending address 
DE = start » HL = end 

save ending address 

seed 

fill memory with random 

clear carry bit 

set Z flag if done 

restore HL 

go to next location 

restore ending address 
seed 



cal 1 if memory error 



use another pattern 

tell user we'"re still alive 



save what was written 
print address of error 



byte written 



byte read 

get pseudorandom # in C 



CDL Z80 MACRO III Assembler CI 20 12- 414X 

da/mo /SO h h s mm s s s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-24 PROM. ASM 



Psls< 



02BC 


C631 


1006 


02BE 


EEDl 


1007 


02C0 


OF 


1008 


02C1 


80 


1 009 


02C2 


4F 


1010 


02C3 


C9 


lOU 



adi 


31h 


xri 


11010001 


rrc 




add 


B 


mov 


C, A 


rel- 





CDL ZSO MACRO III Assembler CI 20 12- 414X Pase 26 

da/mo/SO hh: mms ss 

ZSBF'RM - ZSBC-3 PROM Monitor 

1-25 PROM. ASM 

1014 5 

1015 ; Boot l=r-oiTi ■f1oppY7 netiuorki harddiski or tape. 

1016 5 

1017 5 B <device> C<co[Tibu-F>Il 

1018 5 

1019 ; Read a bootstrap prosram from a device into RAM. 

1020 ; If successful. Jump to RAM. If the device is '1-% 

1021 ? then test the floppy disk controller. 
Boot: 

rst inO/S 5 set device name 

exaf ; save it 

Ixi H7..ok 5 come back to here 

Jmp ckram2 ? test memorv! 

..oks exaf ; set device back 

cpi -'N'' 

Jz Network 5 Boot from netmork 

cpi '"H'' 5 boot from harddisk 

Jz Harddisk 

cpi •■'F'' 

Jrz Floppy ; Boot from floppy unit 

cpi •■"T'"' 

Jz Testflop; Test floppy 

7 

5 Check for boot from specified floppy unit 
sui ''0'' ? unit must be >= 
Jm error 

cpi 7+1 ; unit must be <= 7 
Jp error 
Jmpr goflop 



02C4 




1022 


02C4 


CF 


1023 


02C5 


08 


1024 


02C6 


21 02CC 


1025 


02C9 


C3 0400 


1026 


02CC 


08 


1027 


02CD 


FE4E 


1028 


02CF 


CA 037E 


1029 


02D2 


FE4S 


1030 


02D4 


CA 0460 


1031 


0207 


FE46 


1038 


02D9 


2811 


1039 


02DB 


FE54 


1040 


0200 


CA 0361 


1041 
1042 
1043 


02E0 


D630 


1044 


02E2 


FA 002C 


1045 


02E5 


FE08 


1046 


02E7 


F2 002C 


1047 


02EA 


1801 


1048 



CDL ZSO MACRO III As&embler C12012- 414X 

da/mo/SO hhsmmsss 

ZSBPRM - ZSBC-3 PROM Monitor 

1-26 PROM. ASM 



Pase 27 



02EC 
02EC 
02ED 
02ED 
02F0 
02F3 
02F6 
02FS 
02FB 
02FE 
0300 
0302 
0303 
0305 
0308 
030 B 
030E 
0311 
0314 
0317 
031 A 
03 ID 
0320 

0324 
0326 
0328 
032A 



032D 
0330 
0333 
0336 
0339 
033C 
033E 
0340 
0343 

0345 
0348 
034B 
034C 
034E 



97 

21 0371 
11 9390 
01 OOOD 

EDBO 

CO • ooo i 
•-.•ji- .■'%-• y J. 

32 9394 

CBD7 

D309 

97 

D308 

CD OOBl 
036B 
00 A 1 
9390 
00 A 1 
036F 
00 A 1 
OOBl 
9380 
F 



21 
CD 
21 
CD 
21 
CD 
CD 
3A 
CB 



20EA 
CB6F 
2SEC 
E6D0 
C4 00D2 



9393 
00 A 1 
9000 
0011 
OOBE 



21 

CD 

21 

01 

CD 

EDA2 

20F9 

C3 02ED 

DB03 



CD OOBl 
21 9380 
7E 

E6C0 
CA 9000 



1051 
1052 
1053 
1054 
1055 
1056 
1057 
1053 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1 068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1 OSS 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 



; FloppY hoot 

H 

•} 

; Read sinsle densitv? track 0, sectors 1-2 
; from drive 0-, and Jump to RAM 
FT oppys 

9 f 1 op! 



sub 



A 



1 xi 

1 xi 

Ixi 

1 dir 

sta 

sta 

set 

out 

sub 

out 

cal 1 

Ixi 

cal 1 

re seek: ixi 
call 

sense: ixi 
can 
cal 1 
Ida 
bit 
J rns 
bit 
J rz 
ani 
ens 



Hj homeFLOP? setup home^ read commands 
DihomeF ; must move to RAM so that 
Bil3 ; unit no can be selected 



put unitno in home^ read 



turn on drive select bit 
select drive 

multiplex Flo p p v t o DMA 

1=1 ush the floppy controller 



homeF+1 
readF+1 

2, A 
PIOBD 
A 

PIOAD 
resul t 
HiSpecFLOP 

command 5 specify timine info 

Hj homeF 

command ; recal ibrate drive 

H, IsenseFLOP 

command ; sense interrupt status 

result ; 2 result bytes returned 

resbuf ; siet first status byte 

3, A 

re seek 
5, A 
sense 
ODOh 
ioerr 



retry if not ready 

retry until seek done 
check if seek successful 



This code is very timing sensitive. 
For 5 inch floppy? each data byte must be read 
the floppy controller within 27 microsecs? or i 
lost» and read operation will terminate prematu 



from 
t is 
rely. 



. . read! 



1 xi 
cal 1 
Ixi 
Ixi 
cal 1 
ini 
Jrnz 
J mp 
in 

call 
1 xi 
mov 
ani 
J 2 



H»readF 

command ; read data 

Hi BOOT! oc ; boot address 

B7 256<8+FL0PDR 



lua i t d r ? 

w 

. . read ; 
3 o f 1 o p ; 
STOPFLOP; 

result ; 
h» resbuf; 
ai m 

OCOh ; 
BOOTloc ; 



wait for next byte avai 
get and store a byte 
continue until 1 sector 
loop bootstrap loader 
stop the floppy control 
and check result status 
7 result bytes returned 
get first result byte 

top 2 bits should be ze 
Jump to boot code 



1 abl e 
read 
1 er 



ro 



CDL Z80 MACRO III Assembler C 120 12- 
da/mo/SO hh:mm:5s 
ZSBPRM - ZSBC-3 PROM Monitor 
1-27 PROM. ASM 



414X 



Pase 2S 



0351 


11 9070 


1105 


0354 


01 0010 


1106 


0357 


EDBO 


1107 


0359 


21 9000 


1108 


035C 


3E0D 


1109 


035E 


C3 020E 


1110 



1 xi 
1 xi 
Idir 
1 xi 
mvi 
Jmp 



dv9070h ; mov result buH= 

b,10h ; to to 9070 for display 

h>9000h » display result if err 

5.1 cr 

daddrl ? into display routine 



CDL Z80 MACRO III Assembler C1201: 
da/mo/80 hhsmmsss 
ZSBPRM - ZSBC-3 PROM Men iter 
1-2S PROM. ASM 



414X 



Pase 29 



0361 
0361 



CD 0058 



0364 CD OOAl 
0367 CD OOBl 
036A FF 



0000 




0000 




0001 




OOFF 




036B 




036B 


03 


036C 


88 


036D 


81 


036E 


l-h 


036F 




036F 


08 


0370 


FF 


0371 




0371 


07 


0372 


00 


0373 


FF 


0374 




0374 


06 


0375 


00 


0376 


00 


0377 


00 


0378 


01 


0379 


00 


037A 


lA 


037B 


07 


037C 


80 


037D 


FF 



1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1139 
1140 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 



7 Test f] oppY 

N 
1 

•" Get command b 
; perfcirm a flo 
Testflops 

call 
call 
call 
rst 



uf-fer address 7 and then 

PPY command and result phase 

getadr 5 set command buffer address 
command ; do a command phase 
result ; do a result phase 
restart/8 



Floppy command strinss - see NEC765 chip description 

for explanation 
= ; boot drive number 
= " boot track number 
= 1 ; first boot sector 
= OFFh ; end-of-command character 



drive = 

track = 

sector = 

endcom = 

specFLOPs 

. bvte 
. bvte 
. byte 
. bvte 

IsenseFLOP! 

. bvte 
. bvte 

ho me FLOPS 

. bvte 
. byte 
. bvte 

readFLOP! 

. bvte 
. bvte 
. bvte 
. bvte 
. bvte 
. bvte 
. bvte 
. bvte 
. bvte 
. bvte 



88 h 
81 h 
endcom 



endcom 

7 

drive 

endcom 

6 

drive 

track 

OOh 

sector 

OOh 

lAh 

07 h 

128 

endcom 



•■'specifv' command 

8ms seek 7 128 ms unload 

load 1 28 m 5 7 n o n -DMA 



•■'sense interrupt status- 



^'recal ibrate- 
drive select 



:ommand 



single density 
head 7 drive select 
track number 
head address 
sector number 
128 byte sector 
last sector number 
sap lensth (in bytes) 
sector size 



CDL Z80 MACRO III 
da/mo/SO hhsmmsss 
ZSBPRM - ZSBC.-3 PROM 
1-29 PROM. ASM 



Assembler C12012- 414X 
Monitor 



Pass 30 



037E 
037E 
037F 

0381 

Oooo 
_ •-•«-»%*' 

OOOCT 

0OO7 

038A 
038D 
038F 
0392 
0395 
0397 
0397 
0399 
039B 
039D 
039F 
03 A 1 
03A3 

03A4 
03A5 



03A8 
03 A 8 
03A9 
03 A B 
03AD 
03AF 
03B1 
03B2 



97 

ED47 
ED5E 

D308 
21 03C2 
01 1338 
EDB3 
21 03B3 
01 0F2B 
EDB3 

DB2B 
E601 
2SFA 
DB29 
3E87 
D338 
FB 

76 

03 9000 



F5 

3EC3 

D338 

3E18 

D32B 

Fl 



1178 
1179 
1180 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 



09 



; Network boot 
Netujork! 

sub 

stai 

iiTi2 

mvi 

out 

Ixi 

Ixi 

outir 

Ixi 

Ixi 

outir 
. .wait: 

in 

ani 

Jrz 

in 

mvi 

out 

ei 

hit 
Jmp 

7 

? Process inter 
DMARdone: 

push 

mvi 

out 

mvi 

out 

POP 

ret 



A 



; DMA vector stored in 1 ouj core 
; setup interrupt mode 
; multiplex SIOIB to DMA 



A,l 

PIOAD 

H,DMANpro9 

B,DMANi}i<8+DMA 

; prosram the DMA chip 
HiREOppos 
B7REC*<8+SI01BC: 

; prosram the SIOIB chip 



SIOIBC 

KRxRDY 

. . wait 

SIOIBD 

A,87h 

DMA 



wait -for data addressed to us 



throw away the user number- 
enable DMA 

; remember ints are disabled 

; bv a hardware reset. 

; wait for DMA done interrupt 

BOOTloc ; execute the bootstrap 

rupt on DMA done 

PSW 

AvOCSh ; reset DMA chip 

DMA 

A, 18h ; reset the SIOIB chip 

SIOIBC 

PSW 



CDL Z80 MACRO III Assembler CI 20 12- 414X 

da/mo/80 hh s mrn: ss 

ZSBPRM ~ ZSBC-3 PROM Monitor 

1-30 PROM. ASM 



Pase 31 



O.: 



:!0 



OOFE 
03B3 
03B3 
03B4 
03B6 
03BQ 
03BA 
03BC 
03BE 
03C0 
OOOF 

03C2 
03C2 
03C3 
03C4 
03C5 
03C6 
03CS 
03CA 
03C.B 
03CC 
03CD 
03CE 
03CF 
03D0 
03D1 
03D2 
03D3 
03D4 
0013 
03D5 



18 

0420 

1580 

03FC 

06.FE 

077E 

11E4 

23FD 



C3 

C7 

CB 

7D 

9000 

037F 

14 

95 
29 
12 

06 

92 

CF 
01 
CF 
AB 



1226 
1227 
1228 
1229 
1 230 
1231 
1232 
1233 
1234 

J. rfL.O%J 

1 236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 

1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 



5 SDLC command 

lenBOOT == 

BOOTusr == 

RECpi-ogs 

. bYte 
. bvl-e 
. bvte 
. bvte 
. bvte 
. bvte 
. bvl-e 
. bvte 

REC* 

n 
7 

DMAMprog: 

. bvte 
. bvte 
. bvte 
. bvte 
. word 
. word 
. bvte 
. bvte 
» bvte 
. bvte 
. bvte 
. bvte 
. bvte 
. bvte 
, bvte 
. bvte 
. bvte 



strings 
380 h 
254 



length of network boot < 
boot pseudo user number- 



de 



00011000b 
4 7 00100000b 

15h7 10000000b 
3, 1111 1100b 
6 7 BOOT us r 
7,01111110b 

llh, 11100100b 

23h7 11111101b 

.-RECprog 



channel reset 
SEiLC mode 
transmit disable 
receiver info 
user number 
■flag bvte 
interrupt control 
enable receiver 



0C3h ; master reset 
0C7h ; reset port A 
OCBh 5 reset port B 
7Dh ; read from port B 
BOOTloc ; DMA address 
lenBOOT- 15 DMA length - 1 



14h 
28 h 
95h 

SIOIBD 
12h 



port A inc7 memorv 

port B fixed 7 I/O 

bvte mode 

port B 

interrupt at end of block 



2D 
2D 
2D 



IB 
IB 
2B 



DMAvect?<OFFh 



interrupt vector 



DMAN* 
1 1 oujbvt 



92 h 

OCFh 

1 

OCFh 

OABh 

.-DM AN prog 



stop at end of block 

load starting address 

read 

load starting address 

enable interrupts 



2C 
lA 



CDL Z80 MACRO III Assembler C12012- 414X 

d a / rri o / SO h h s mm s s s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-31 PROM. ASM 



Page 



0400 



0400 
0400 
0401 
0403 
0406 
0409 
040C 
040D 

040F 
0412 
0415 
0416 
0419 
041A 
04 IB 
04 ID 

04 IF 
0420 
0422 
0423 



D9 

3EFF 
21 4000 
11 4001 
01 BFFF 
77 
EDBO 

21 4000 

11 0000 

BE 

C2 0459 

B7 

23 

ED5A 

20F6 

B7 

2S03 
AF 
ISDE 



1266 
1267 
126S 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
12S0 
12S1 
1282 
1283 
1284 
1285 
1286 
12S7 

1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 



; *##*«*«*##ft«#****-Jt«-»*tt«*«***<fr*iS'*»«'»'ii'-}{--K--!S--K-****-ii-*^H{--J{-*-)«-« 



LOG 



400H 



SECOND HALF OF ROM 



? RAM diagnostics. First, check for data bits stuck 
; hish or low? bv fill ins memory luith O's and FF-'s and 
; reading them back. 



r>- 



ckram 



chkli 



. ,chk2: 



exx 
mvi 
1 xi 
1 xi 
Ixi 
mov 
Idir 

Ixi 
Ixi 
cmp 
■inz 
or a 
inx 
dadc 
J rnz 

ora 
J rz 
xra 
Jmpr 



; save HL (ret addr) 
A^OFFh ? test with FF-'s first 
H , 4000 h ; fill me m o r v > 4000 t o t o p 
D,4001h 
B-, ( 0-4001 h) 
M, A ; char to fill 

5 fill it on UP 



H,4000h 

D,0 

M 

stuck 

A 

H 

D 

. . chk2 

A 

q c r o s s 

A 

. . c h k 1 



see if still same as A 
if not, it-'s stuck, 
clear carrv 

check for HL=0 this wav 
(doesn-'t trash A) 

after do ins FF, do 
after doing 0, go on 



CDL ZSO MACRO III Assembler CI 20 12- 414X 

da/iTici/80 hhsmmsss 

ZSBPRM - ZSBC.-3 PROM lion iter- 

1-32 PROM, ASM 



Pa9<i 



0425 
0425 
0428 



01 4000 
21 2000 



1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 

1 308 

1 309 
1310 
1311 
1312 



Test for shorted address lines: Memor-v is now full of 
zeros from 4000h to FFFFh. Test all address inputs to 
those three banks. With one addr- line high^ write an 
FF, then check the addresses with anv other- line hiah 
(and the one with all low) to see if any bits are non- 
zero (i.e. an addr line to chip is shorted or open). 
Next rotate the hish bit right in the write address 
and repeat, thus testing everv line to the chip. Do 
this entire operation for eah of the three high banks. 



across! 

l>d 
bnkl oop: Ixi 



B»4000h ; bank offset saved in BC 
H>2000h ; highest addr pin to RAM is high 



042B 
042C 
042D 
042E 
0430 
0431 
0432 
0433 



0434 
0435 
0436 
0438 
043 A 
043C 



09 

7E 

B7 

2029 

2F 

77 

54 

5D 



7A 

90 

CB3F 

CBIB 

3808 

80 



1313 
1314 
1315 
1316 

1318 
1319 
1320 
1321 
1322 

1324 
1325 
1326 
1327 
1328 



outl OOP! dad 
mov 
ora 
J rns 
cma 
mov 
mov 
mov 



i n 1 o p s 



mov 
sub 
srl r 
rarr 
J r c 
add 



B 

A,M 

A 

c r o s s 

M,A 
D,H 
E,L 



A,D 

B 

A 

E 

. . go 
B 



HL now = write address 

read bvte to be written 

should be to start! if not, 

bank-select logic has problems 

make FF 

stick it into test address 

set UP write addr in EiE too 
then go S< rotate bits once 

DE has actual test addr 
so subtract bank offset 
rotate it right (fill w/0) 
if 1 has got thru» then 
break out of inner loop 
remember DE has Just 1 bit high 



043D 
043E 
043F 
0440 
0442 

0444 
0445 
0446 
0448 
0449 
044A 
044 C 
044D 
044F 
0451 
0453 
0454 
0455 



57 

lA 

B7 

2017 

ISFO 

OA 

B7 

2011 

7C 

90 

CB3F 

67 

CBID 

SODA 

3E40 

SO 

47 

20D1 



0457 D9 



1329 
1330 

•I OO -I 
X ^»*--.i X 

1332 
1333 

X ^-*s-'^ 

1335 
1336 
lyo7 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1 346 
1347 
1 348 
1349 
1350 



go 5 



mov 
I'd ax 
ora 
J rns 
Jmpr 

1 dax 
ora 
J rns 
mov 
s u b 
srl r 
mov 
rarr 
J r n c 
mvi 
add 
mov 
J rnz 



exx 



D, A 5 

D ; 

A ; 

cross ; 
i n 1 o p 

B 5 
A 

cross 

A,H ; 

B 5 

A ; 

H,A ; 

L ; 

o u 1 1 o o p ; 

A740h 5 

B ; 
B,A 

b n k 1 p ; 



so adding bank offset gives 
test address. Read it. 
c h e c k for 1 '^ s 
bomb if anv found 



now check addr w/ all 0"'s 



HL has write addr, so subtract 
bank offset, and rotate 
rotate right, fill w/0 

low bit -> CY 
rotate risht, CY -> high bit 
if 1 isn'^t thru go back again 
now move bank offset up to 
next bank 

if zero, we're done 



get ret addr back 



CDL Z80 MACRO III Assembler- 012012- 414X Page 34 

da/mo/SO hhsmmsss 

ZSBPRM - ZSBC-3 PROM Monitor 

1-33 PROM. ASM 

pchi ; exit bv Jumpiris to where we 

; left off. 

rriov A»M " set culprit onto address lines 
mvi A J bell " if bad 7 camp on conout port 

.ife DSC3,i:out SI01AD3 

Jmpr cross ? possible-! no status check. 



04 5S 


E9 


1351 
1352 




0459 




1353 


stuck 


0459 


7E 


1354 


cross 


045A 


3E07 


1355 




045C. 




1356 


. . be 1 


045C 


D32S 


1357 


. ife 


045E 


1SF9 


1359 
1360 





CDL ZSO MACRO III Assembler C12012- 414X 

da/iTiCi/80 hh! miTiS ss 

ZSBPRM - ZSBC-S PROM Mcmitoi- 

1-34 PROM. ASM 



Pane 



0460 
0460 
0463 
0466 
0469 
046C 
046F 
0472 
0474 
0477 



0496 
0496 
0499 
049B 
049E 
04A1 
04A2 
04A5 



21 
CD 
21 
CD 
CD 

jC 1 



04C0 
047A 
04C2 
047A 
0496 
9000 
0680 
CD 04B3 
C3 9000 



047A 




047A 


DBOl 


047C 


DB08 


047E 


CB5F 


0480 


20F8 


0482 


3E51 


0484 


D301 


0486 


DB08 


0488 


CB67 


048A 


28FA 


04SC 


DBOl 


048E 


FE52 


0490 


20ES 


0492 


0608 


0494 


1810 



21 9380 

0608 

CD 04B3 

3A 9387 

B7 

C4 00D2 

C9 



1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 



Harddisk! 

Ixi 
cal 1 
1 xi 
cal 1 
cal 1 
Ixi 
mvi 
can 
Jmp 



H,selHARD 

cmdHARD ; select unit 

H,readHARD 

cmdHARD 5 read 1 sector 

resHARD ; set result status 

HjBOOTIoc 

B,12S 

recHARD ; set data bvtes 

BOOTloc 



Send command to the hard disk 
Regs in: HL = address o-f command string 
Regs out! none 
Destroyed: A, BC, HL 
rmdHARD: 



1384 ..l: 
1385 
1386 
1387 

1 -"SOO 
J. %-'C'>_' 

1389 

1390 .,2! 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 



in 

in 

bit 

J r n 2 

mvi 

out 

in 

bit 

J rz 

in 

cpi 

J rns 

mvi 

Jmpr 



HARDP ; 
PIOAD ; 

3, A 

H M X 

A,5lh ; 
HARDP 
PIOAD ; 

4, A 
. ,2 

HARDP 5 
52 h 

. .1 ; 

B,8 

sendHARD 



clear status 

wait 1-or HDC receive 



"request to send" 
wait for HDC send 

check if "clear- to send" 
if not 7 retry 



; Receive status from hard disk control ler 

; Regs in! none 

; Ress out: none 

% Destroyed: A, BC, HL 

resHARD! 

Ixi H^reshuf; put result bytes here 

mvi B7S 5 always get 8 result bytes 

cal 1 recHARD 

Ida resbuf+7; check error status 

ora A 

cnz ioerr ; abort on any error 

ret 



CDL Z80 MACRO III Assembler C.1201: 
da/mo/80 hhs mms ss 
ZSBPRM - ZSBC.-3 PROM Monitor 
1-35 PROM. ASM 



414X 



Pase 36 



04A6 




04A6 


OEOl 


04A8 


DB08 


04AA 


CB5F 


04AC: 


20FA 


04AE 


EDA3 


04B0 


20F6 


04B2 


C9 



04B3 




04B3 


OEOl 


04B5 


DB08 


04B7 


CB67 


04B9 


28FA 


04BB 


EDA2 


04BD 


20F6 


04BF 


C9 


04C0 




04C0 


13 


04C1 


00 


04C2 




04C.2 


n 


04C3 


01 


04C4 


02 


04C5 


00 


04C.6 


00 


04C.7 


00 


04C8 


OA 


04C9 


00 



1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 



Send data bvtes to the har-d disk 



; Regs ins 

H 
t 

; Ress out: 

; Destroyed: 

sendHARD: 

mvi 

. . 1 : in 
bit 
J rnz 
outi 
J rnz 
ret 



HL = block address 

B = bvte count 

none 

A, BC, HL 

CHARDP 
PIOAD 
3, A 

« M J. 



Receive data bvtes from the hard disk 



Ress ini 

Regs out: 
Destroyed s 

recHARD: 

mvi 

. . 1 : in 
bit 
J rz 
ini 
J rn 2 
ret 



HL = block address 

B = byte count 

none 

A, BC, HL 

CHARDP 
PIOAD 
4, A 
..1 

..1 



; Hard disk commands 

selHARD! 

.byte 13h 

, bvte 

readHARD: 

.byte llh 

. byte 1 

. byte 2 

. byte 

.byte 

. byte 

.byte 10 

. byte 



sel ect 
unit 

read 

secotr 

track 



retries 



CDL Z80 MACRO III Assembler C12012- 414X Pass 37 

da/mo/30 hhsmmsss 

ZSBPRM - ZSBC.-3 PROM Monitor 

1-36 PROM, ASM 

1635 



CDL Z80 MACRO III Assembler C.12012- 414X Page :] 

d a / m o / 30 h h : mm 5 s s 

ZSBPRM - ZSBC-3 PROM Monitor 

1-37 PROM- ASM 

04CA 2202 lastbvt == 

2203 »if2,C 
2206 C. prntx -"Code is shorter- than 2k (?< will fit in th 

e p r o m ) . ■' II 
2208 .end 



CDL ZSO MACRO III Assembler CI 201 

da/mo /SO h h : mm s s s 

ZSBPRM - ZSBC-3 PROM Monil-or- 

1 



414X 



Pa3< 



yy 



3S +++++ Symbol 


Table +++++ 










BELL 


0007 


BNKLOO 


0428 


BOOT 


02C4 


BOOTLO 


9000 


BOOTHS 


OOFE 


CKRAM 


0149 


CKRAM2 


0400 


CKSUM 


07FE 


CMDHAR 


047A 


CMDMOD 


0003 ^^ 


COMMAN 


00 A 1 


CONTIN 


016D 


CR 


OOOD 


CRLF 


0020 


CROSS 


0459 


CTCO 


0030 


CTC2 


0032 


CTL*FL 


9405 


DADDR 


93 EO 


DADDR 1 


020E 


DADDR2 


02 IE 


DAT$CM 


0001 


DEFAUL 


021 A 


DMA 


0038 


DMANPR 


03C2 


DMAN$ 


0013 


DMARDO 


03A8 


DMAVEC 


0006 


DMS15 


FFFE 


DRIVE 


0000 


DSC3 


0000 


DUMP 


0202 


DUMPO 


02 IF 


DUMPl 


0226 


DUMP2 


0235 


DUMPCR 


01 FA 


ENDCOM 


OOFF 


ERRMSG 


00C5 


ERROR 


002C 


FILL 


0252 


FILLME 


0287 


FLOPDR 


0011 


FLOPPY 


02EC 


FLOPSR 


0010 


FLUSH 


0015 


FOX 


FFFF 


GETO 


005D 


GETl 


0062 


GET ADR 


0058 


GETBYT 


0030 


GO 


024E 


GOFLOP 


02ED 


HARDDI 


0460 


HARDP 


0001 


HIGH AD 


9401 


HOMEF 


9390 


HOMEFL 


0371 


HOST 


0000 


IN 


0267 


I NO 


0008 


INC 


003B 


INITIA 


OODB 


INLOOP 


0434 


lOERR 


00D2 


I SENSE 


036F 


LASTBY 


04CA 


LASTMO 


OOOF 


LB 


04CA 


LENBOO 


03S0 


LENXEB 


0006 


LF 


OOOA 


LLB 


03D5 


LLOWBY 


03D5 


LOWADR 


9403 


MEMERR 


02AC 


MIDADR 


9402 


MONITO 


OlAA 


MOVBAK 


015D 


NETWOR 


037E 


NUM 


0073 


NUMVEC 


0007- 


OUT 


0270 


OUTO 


0010 


OUTC 


0042 


OLITLOO 


042B 


OUTSTO 


0018 


PARADA 


0002 


PARAST 


0008 


PATCH 


0044 


PATTER 


OOFF 


PIOAC 


OOOA 


PIOAD 


0008 


PIOBC 


OOOB 


PIOBD 


0009 


PROMMS 


018C 


PROMPT 


OlAE 


PRTADR 


0085 


PRTBYT 


008A 


PRTNBL 


0093 


QCROSS 


0425 


QMARK 


003F 


RAM 


9000 


RAMOK 


014F 


RDDATA 


0009 


RDERRM 


OOOB 


READDR 


00B4 


READF 


9393 


READFL 


0374 


READHA 


04C2 


RECHAR 


04B3 


RECPRO 


03B3 


REC$ 


OOOF 


RESBUF 


9380 


RESEEK 


030E 


RESHAR 


0496 


RESTAR 


0038 


RESULT 


OOBl! 


RETRY 


0283 


REVISI 


0017 


RS232 


0183 


RS232* 


0009 


RXRDY 


0000 


SECSIZ 


0100 


SECTOR 


0001 


SELHAR 


04C0 


SENDHA 


04A6 


SENSE 


0314 


SERIAL 


03FE 


SET 


01E4 


SETl 


01E7 


SET2 


01F7 


SETMAP 


0003 


SIOIAC 


002A 


SIOIAD 


0028 


SIOIBC 


002B 


SIOIBD 


0029 


SI 02 AC 


0022 


SI 02 AD 


0020 


SI02BC 


0023 


SI02BD 


0021 


SKEW*B 


9404 


SPACE 


0028 


SPECFL 


036B 


STACK 


9400 


STOPFL 


0003 


STUCK 


0459 


TAPBOO 


DOOO 


TAPEOP 


0001 


TAPSTK 


D800 


TEST 


0278 


TESTFL 


0361 


TESTME 


0295 


TOGGLE 


0000 


TRACK 


0000 


TSTPAT 


02BB 


TXRDY 


0002 


VECTAB 


03E7 


VERS 10 


0004 


WAITO 


0042 


WAITDR 


OOBE 


WAITI 


0008 


WRDATA 


0001 


XBUSY 


0000 


XDESEL 


0041 


XDRVRE 


0000 


XERRBU 


9406 


XERROR 


0002 


XIDLE 


0040 


XINITC 


0000 


XINITD 


OOOC 


XOPCOD 


9400 


XREAD 


0008 


XRECAL 


0001 


XREQXF 


0004 


XSELCO 


OOCl 


X SENSE 


0003 


„BLNK. 


0000=03 X 


.DATA. 


0000" X 


.PROG. 


0000^ X 





